home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-7.dms / in.adf / envWWW21 / www / arexx / wizard.ged < prev   
Encoding:
Text File  |  1996-01-19  |  20.7 KB  |  434 lines
  1. /* $VER: 1.1, ©1996 Dietmar Eilert. Create empty table */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9.  
  10. if (RC ~= 0) then
  11.     exit
  12.  
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14.  
  15. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  16.  
  17. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  18.  
  19. 'QUERY USER VAR=USER'
  20.  
  21. if (USER = "") then do
  22.  
  23.     'QUERY ADDRESS_NAME VAR=ADDRESS_NAME'
  24.  
  25.     if (ADDRESS_NAME ~= "0") then
  26.  
  27.         USER = ADDRESS_NAME
  28. end
  29.  
  30. 'FIX VAR=USER'
  31.  
  32. do forever
  33.  
  34.     'REQUEST STRING TITLE="Homepage Wizard" BODY="*nWelcome to the Homepage Wizard !*n*nThis utility will help you to design your*nown homepage.*n*nYou can view the homepage created by this*nprogram with a web browser or upload the*npage to your WWW account so that other*nInternet users can visit your homepage.*n*nPlease enter your name:*n" OLD="' || USER || '" VAR=USER'
  35.  
  36.     if ((RC ~= 0) | (USER ~= "")) then
  37.         break
  38. end
  39.  
  40. if (RC = 0) then do
  41.  
  42.     'QUERY ADDRESS_POSITION VAR=ADDRESS_POSITION'
  43.     'QUERY ADDRESS_STREET   VAR=ADDRESS_STREET'
  44.     'QUERY ADDRESS_CITY     VAR=ADDRESS_CITY'
  45.     'QUERY ADDRESS_STATE    VAR=ADDRESS_STATE'
  46.     'QUERY ADDRESS_COUNTRY  VAR=ADDRESS_COUNTRY'
  47.     'QUERY ADDRESS_PHONE    VAR=ADDRESS_PHONE'
  48.     'QUERY ADDRESS_EMAIL    VAR=ADDRESS_EMAIL'
  49.  
  50.     if (ADDRESS_POSITION = "0") then
  51.         ADDRESS_POSITION = ""
  52.  
  53.     if (ADDRESS_STREET = "0") then
  54.         ADDRESS_STREET = ""
  55.  
  56.     if (ADDRESS_CITY = "0") then
  57.         ADDRESS_CITY = ""
  58.  
  59.     if (ADDRESS_STATE = "0") then
  60.         ADDRESS_STATE = ""
  61.  
  62.     if (ADDRESS_COUNTRY = "0") then
  63.         ADDRESS_COUNTRY = ""
  64.  
  65.     if (ADDRESS_PHONE = "0") then
  66.         ADDRESS_PHONE = ""
  67.  
  68.     if (ADDRESS_EMAIL = "0") then
  69.         ADDRESS_EMAIL = ""
  70.  
  71.     'FIX VAR=ADDRESS_POSITION'
  72.     'FIX VAR=ADDRESS_STREET'
  73.     'FIX VAR=ADDRESS_CITY'
  74.     'FIX VAR=ADDRESS_STATE'
  75.     'FIX VAR=ADDRESS_COUNTRY'
  76.     'FIX VAR=ADDRESS_PHONE'
  77.     'FIX VAR=ADDRESS_EMAIL'
  78.  
  79.     'REQUEST STRING TITLE="Homepage Wizard" BODY="*nHello ' || USER || ',*n*nPlease enter your title. Leave the field empty*nif you don''t want to have your title displayed*non your home page.*n*nExample: Sales Manager*n" VAR=POSITION OLD="' || ADDRESS_POSITION || '"'
  80.  
  81.     if (RC = 0) then do
  82.  
  83.         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (1/5)*n*nPlease enter your address. Leave the*nfield empty if you don''t want to have your*naddress displayed on your home page.*n*nStreet:*n" VAR=STREET OLD="' || ADDRESS_STREET || '"'
  84.  
  85.         if (RC = 0) then do
  86.  
  87.             if (STREET ~= "") then
  88.                 'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (2/5)*n*nPlease enter your address. Leave the*nfield empty if you don''t want to have this*ninformation displayed on your home page.*n*nCity:*n" VAR=CITY OLD="' || ADDRESS_CITY || '"'
  89.  
  90.             if (RC = 0) then do
  91.  
  92.                 if (STREET ~= "") then
  93.                     'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (3/5)*n*nPlease enter your address. Leave the*nfield empty if you don''t want to have this*ninformation displayed on your home page.*n*nState:*n" VAR=STATE OLD="' || ADDRESS_STATE || '"'
  94.  
  95.                 if (RC = 0) then do
  96.  
  97.                     if (STREET ~= "") then
  98.                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (4/5)*n*nPlease enter your address. Leave the*nfield empty if you don''t want to have this*ninformation displayed on your home page.*n*nCountry:*n" VAR=COUNTRY OLD="' || ADDRESS_COUNTRY || '"'
  99.  
  100.                     if (RC = 0) then do
  101.  
  102.                         if (STREET ~= "") then
  103.                             'REQUEST STRING TITLE="Homepage Wizard" BODY="*nADDRESS (5/5)*n*nPlease enter your phone number. Leave the*nfield empty if you don''t want to have this*ninformation displayed on your home page.*n*nPhone number:*n" VAR=PHONE OLD="' || ADDRESS_PHONE || '"'
  104.  
  105.                         if (RC = 0) then do
  106.  
  107.                             'REQUEST STRING TITLE="Homepage Wizard" BODY="*nE-MAIL*n*nPlease enter your e-mail address. Leave*nthe field empty if you have no e-mail*naddress or if you don''t want to have*nit displayed on your home page.*n" VAR=EMAIL OLD="' || ADDRESS_EMAIL || '"'
  108.  
  109.                             if (RC = 0) then do
  110.  
  111.                                 'REQUEST STRING TITLE="Homepage Wizard" BODY="*nWelcome message*n*nPlease enter a short welcome message to*nbe included on your page*n" OLD="Thanks for visiting my homepage !" VAR=WELCOME'
  112.  
  113.                                 if (RC = 0) then do
  114.  
  115.                                     'REQUEST TITLE="Homepage Wizard" BODY="PICTURE*n*nWould you like to include a picture on*nyour homepage ? Suggested size is 200x200*npixels or smaller.*n*nNote: The picture format should be either*nGIF or JPG." BUTTON="!PICTURE|_No|_Cancel" VAR=SHOWPIC'
  116.  
  117.                                     if ((RC = 0) & (SHOWPIC ~= 0)) then do
  118.  
  119.                                         if (SHOWPIC = 1) then do
  120.  
  121.                                             'REQUEST FILE PATH="golded:tools/www/gif/" TITLE="Select the picture (GIF or JPG)" VAR=GIF'
  122.  
  123.                                             if ((RC ~= 0) | (GIF = "")) then
  124.                                                 SHOWPIC = 0;
  125.                                         end
  126.  
  127.                                         'REQUEST TITLE="Homepage Wizard" BODY="LINKS*n*nDo you want to have a favourite links*nsection included on your homepage ?" BUTTON="!LINKS|_No|_Cancel" VAR=FAVLINKS'
  128.  
  129.                                         if ((RC = 0) & (RESULT ~= 0)) then do
  130.  
  131.                                             if (FAVLINKS = 1) then do
  132.  
  133.                                                 SITES   = 0
  134.                                                 SUGGEST = 'TRUE'
  135.  
  136.                                                 do forever
  137.  
  138.                                                     if (SUGGEST = 'TRUE') then
  139.                                                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nSITE NAME*n*nPlease enter the name of one of your*nfavourite WWW sites:*n" OLD="GoldED Support" VAR=SITENAME'
  140.                                                     else
  141.                                                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nSITE NAME*n*nPlease enter the name of one of your*nfavourite WWW sites:*n" VAR=SITENAME'
  142.  
  143.                                                     if ((RC ~= 0) | (RESULT = "")) then
  144.                                                         break
  145.  
  146.                                                     'FIX VAR=SITENAME'
  147.  
  148.                                                     if (SUGGEST = 'TRUE') then
  149.                                                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nURL*n*nPlease enter the URL pointing to ' || SITENAME || ':*n" OLD="http://www.clearlight.com/~dietmar" VAR=SITEURL'
  150.                                                     else
  151.                                                         'REQUEST STRING TITLE="Homepage Wizard" BODY="*nURL*n*nPlease enter the URL pointing to ' || SITENAME || ':*n" OLD="http://" VAR=SITEURL'
  152.  
  153.                                                     if (SITEURL = "http://www.clearlight.com/~dietmar") then
  154.                                                         SUGGEST = 'FALSE'
  155.  
  156.                                                     if ((RC ~= 0) | (RESULT = "")) then
  157.                                                         break
  158.  
  159.                                                     SITES = SITES + 1
  160.  
  161.                                                     SITE.SITES = SITENAME
  162.                                                     URL.SITES  = SITEURL
  163.  
  164.                                                 end
  165.  
  166.                                                 if (SITES = 0) then
  167.                                                     FAVLINKS = 0
  168.                                             end
  169.                                         end
  170.  
  171.                                         'REQUEST Status="User input completed. Creating homepage ..."'
  172.  
  173.                                         /* home page generation */
  174.  
  175.                                         'QUERY ANYTEXT'
  176.  
  177.                                         if (RESULT = "TRUE") then
  178.  
  179.                                             'MORE NAME="homepage.html"'
  180.  
  181.                                         else do
  182.  
  183.                                             'NEW'
  184.  
  185.                                             'NAME NEW homepage.html'
  186.                                         end
  187.  
  188.                                         'QUERY VER  VAR=VERSION'
  189.                                         'QUERY DATE VAR=DATE'
  190.  
  191.                                         HEAD     = "Homepage of " || USER
  192.                                         KEYWORDS = "homepage"
  193.  
  194.                                         'FIX VAR=HEAD'
  195.                                         'FIX VAR=USER'
  196.                                         'FIX VAR=POSITION'
  197.                                         'FIX VAR=STREET'
  198.                                         'FIX VAR=CITY'
  199.                                         'FIX VAR=STATE'
  200.                                         'FIX VAR=COUNTRY'
  201.                                         'FIX VAR=PHONE'
  202.                                         'FIX VAR=EMAIL'
  203.                                         'FIX VAR=WELCOME'
  204.                                         'FIX VAR=GIF'
  205.                                         'FIX VAR=VERSION'
  206.                                         'FIX VAR=DATE'
  207.                                         'FIX VAR=POSITION'
  208.  
  209.                                         'SET ADDRESS_USER     VALUE="' || USER     || '"'
  210.                                         'SET ADDRESS_POSITION VALUE="' || POSITION || '"'
  211.                                         'SET ADDRESS_STREET   VALUE="' || STREET   || '"'
  212.                                         'SET ADDRESS_CITY     VALUE="' || CITY     || '"'
  213.                                         'SET ADDRESS_STATE    VALUE="' || STATE    || '"'
  214.                                         'SET ADDRESS_COUNTRY  VALUE="' || COUNTRY  || '"'
  215.                                         'SET ADDRESS_PHONE    VALUE="' || PHONE    || '"'
  216.                                         'SET ADDRESS_EMAIL    VALUE="' || EMAIL    || '"'
  217.  
  218.                                         'GOTO COLUMN=1'
  219.                                         'TEXT CR T="<HTML>"'
  220.                                         'CR'
  221.  
  222.                                         'TEXT CR T="<!-- Created with ' || substr(VERSION, 7) ||' -->"'
  223.                                         'CR'
  224.                                         'TEXT CR T="<HEAD>"'
  225.                                         'TEXT CR T="<TITLE>"'
  226.                                         'TEXT CR T="' || HEAD || '"'
  227.                                         'TEXT CR T="</TITLE>"'
  228.                                         CR
  229.  
  230.                                         'TEXT CR T="<META NAME=*"description*" CONTENT=*"' || HEAD     || '*">"'
  231.                                         'TEXT CR T="<META NAME=*"keywords*"    CONTENT=*"' || KEYWORDS || '*">"'
  232.                                         'TEXT CR T="<META NAME=*"author*"      CONTENT=*"' || USER     || '*">"'
  233.                                         'TEXT CR T="<META NAME=*"generator*"   CONTENT=*"WWW publishing extensions for GoldED*">"'
  234.  
  235.                                         'CR'
  236.                                         'TEXT CR T="</HEAD>"'
  237.                                         'CR'
  238.                                         'TEXT CR T="<BODY BACKGROUND=*"bckgnd.gif*">"'
  239.                                         'CR'
  240.  
  241.                                         'TEXT CR T="<P>"'
  242.                                         'TEXT CR T="<H1 ALIGN=CENTER>This is the Homepage of ' || USER || '</H1>"'
  243.                                         'CR'
  244.                                         'TEXT CR T="<P>"'
  245.                                         'TEXT CR T="<HR>"'
  246.                                         'CR'
  247.                                         'TEXT CR T="<P>"'
  248.                                         'TEXT CR T="<SMALL><CENTER>U N D E R     C O N S T R U C T I O N</CENTER></SMALL>"'
  249.                                         'CR'
  250.                                         'TEXT CR T="<P>"'
  251.                                         'TEXT CR T="<CENTER><IMG SRC=*"cnstruct.gif*"></CENTER>"'
  252.                                         'CR'
  253.                                         'TEXT CR T="<P>"'
  254.                                         'TEXT CR T="<CENTER>Last update: ' || DATE || '</CENTER>"'
  255.                                         'CR'
  256.  
  257.                                         if (SHOWPIC = 1) then do
  258.  
  259.                                             GIFNAME = GIF
  260.  
  261.                                             pos = index(GIFNAME, ":")
  262.  
  263.                                             if (pos ~= 0) then
  264.                                                 GIFNAME = substr(GIFNAME, pos + 1)
  265.  
  266.                                             do forever
  267.  
  268.                                                 pos = index(GIFNAME, "/")
  269.  
  270.                                                 if (pos = 0) then
  271.                                                     break;
  272.                                                 else
  273.                                                     GIFNAME = substr(GIFNAME, pos + 1)
  274.                                             end
  275.  
  276.                                             'TEXT CR T="<P>"'
  277.                                             'TEXT CR T="<HR>"'
  278.                                             'CR'
  279.                                             'TEXT CR T="<P>"'
  280.                                             'TEXT CR T="<IMG SRC=*"' || GIFNAME || '*">"'
  281.                                             'CR'
  282.                                         end
  283.  
  284.                                         'TEXT CR T="<P>"'
  285.                                         'TEXT CR T="<HR>"'
  286.                                         'CR'
  287.  
  288.                                         if (WELCOME ~= "") then do
  289.  
  290.                                             'TEXT CR T="<P>"'
  291.                                             'TEXT CR T="<H2><IMG SRC=*"dot.gif*"> Information</H2>"'
  292.                                             'CR'
  293.                                             'TEXT CR T="' || WELCOME || '"'
  294.                                             'CR'
  295.                                             'TEXT CR T="<P>"'
  296.                                             'TEXT CR T="<HR>"'
  297.                                             'CR'
  298.                                         end
  299.  
  300.                                         if (STREET ~= "") then do
  301.  
  302.                                             'TEXT CR T="<P>"'
  303.                                             'TEXT CR T="<H2><IMG SRC=*"dot.gif*"> Address</H2>"'
  304.                                             'CR'
  305.                                             'TEXT CR T="' || USER || '<BR>"'
  306.  
  307.                                             if (POSITION ~= "") then
  308.                                                 'TEXT CR T="<I>' || POSITION || '</I><BR>"'
  309.  
  310.                                             'CR'
  311.                                             'TEXT CR T="<P>"'
  312.                                             'TEXT CR T="' || STREET || '<BR>"'
  313.  
  314.                                             if (CITY ~= "") then
  315.                                                 'TEXT CR T="' || CITY || '<BR>"'
  316.  
  317.                                             if (STATE ~= "") then
  318.                                                 'TEXT CR T="' || STATE || '<BR>"'
  319.  
  320.                                             if (COUNTRY ~= "") then
  321.                                                 'TEXT CR T="' || COUNTRY || '<BR>"'
  322.  
  323.                                             if (PHONE ~= "") then
  324.                                                 'TEXT CR T="' || PHONE || '<BR>"'
  325.  
  326.                                             'CR'
  327.                                         end
  328.  
  329.                                         'TEXT CR T="<P>"'
  330.                                         'TEXT CR T="<A HREF=*"mailto:' || EMAIL || '*">E-Mail: ' || EMAIL || '</A>"'
  331.                                         'CR'
  332.                                         'TEXT CR T="<P>"'
  333.                                         'TEXT CR T="<HR>"'
  334.                                         'CR'
  335.  
  336.                                         if (FAVLINKS = 1) then do
  337.  
  338.                                             'TEXT CR T="<P>"'
  339.                                             'TEXT CR T="<H2><IMG SRC=*"dot.gif*"> Favourite Links</H2>"'
  340.                                             'CR'
  341.                                             'TEXT CR T="<UL>"'
  342.  
  343.                                             do ITEM = 1 to SITES
  344.  
  345.                                                 'TEXT CR T="<LI> <A HREF=*"' || URL.ITEM || '*">' || SITE.ITEM || '</A>"'
  346.                                             end
  347.  
  348.                                             'TEXT CR T="</UL>"'
  349.                                             'CR'
  350.                                         end
  351.  
  352.                                         'TEXT CR T="</BODY>"'
  353.                                         'CR'
  354.                                         'TEXT T="</HTML>"'
  355.  
  356.                                         /* create data directory */
  357.  
  358.                                         do forever
  359.  
  360.                                             'REQUEST STRING TITLE="Homepage Wizard" BODY="*nThe Homepage Wizard wants to create a new*ndrawer for your homepage data.*n*nPlease specify a path (a new drawer *"www*" is*ncreated in the directory you specify):*n" OLD="sys:" VAR=DEST'
  361.  
  362.                                             if (RC ~= 0) then
  363.                                                 break
  364.  
  365.                                             if (DEST ~= "") then do
  366.  
  367.                                                 if (right(DEST, 1) ~= ':') then
  368.                                                     if (right(DEST, 1) ~= '/') then
  369.                                                         DEST = DEST || '/'
  370.  
  371.                                                 DEST = DEST || "www"
  372.  
  373.                                                 'FIX VAR=DEST'
  374.  
  375.                                                 if (exists(DEST)) then do
  376.  
  377.                                                     'REQUEST TITLE="Homepage Wizard" BODY="A WWW drawer already exists in this*ndirectory. Overwrite old files ?" BUTTON="!OVERWRITE|_Cancel"'
  378.  
  379.                                                     if ((RC ~= 0) | (RESULT = 0)) then
  380.                                                         iterate
  381.                                                 end
  382.                                                 else
  383.                                                     'FILE NEWDIR NAME="' || DEST || '"'
  384.  
  385.                                                 'NAME NEW ' || DEST || '/homepage.html'
  386.  
  387.                                                 shell
  388.  
  389.                                                 'copy golded:tools/www/data/cnstruct.gif ' || '"' || DEST || '"'
  390.                                                 'copy golded:tools/www/data/dot.gif '      || '"' || DEST || '"'
  391.                                                 'copy golded:tools/www/data/bckgnd.gif '   || '"' || DEST || '"'
  392.  
  393.                                                 if (SHOWPIC = 1) then
  394.  
  395.                                                     'copy "' || GIF || '" "' || DEST || '"'
  396.  
  397.                                                 shell
  398.  
  399.                                                 'GIFINFO AUTOSIZE QUIET'
  400.  
  401.                                                 'SAVE ALL'
  402.  
  403.                                                 'REQUEST TITLE="Homepage Wizard" BODY="Homepage creation completed. All files have*nbeen saved to the following directory:*n*n' || DEST || '*n*nUpload these files to your WWW account so*nthat other users can visit your homepage.*nContact your internet service provider for*ninformation on obtaining WWW accounts and*nuploading files to your account." BUTTON="!OK"'
  404.  
  405.                                                 'REQUEST STATUS="Thank you for using the GoldED Homepage Wizard !"'
  406.  
  407.                                                 leave
  408.                                             end
  409.                                         end
  410.                                     end
  411.                                 end
  412.                             end
  413.                         end
  414.                     end
  415.                 end
  416.             end
  417.         end
  418.     end
  419. end
  420.  
  421. /* ---------------------------- END OF YOUR CODE --------------------- */
  422.  
  423. 'UNLOCK' /* VERY important: unlock GUI */
  424.  
  425. exit
  426.  
  427. SYNTAX:
  428.  
  429. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  430.  
  431. 'UNLOCK'
  432.  
  433. exit
  434.